declare
fun {NewStat Class Init}
P Obj={New Class Init} in
   thread S in
      {NewPort S P}
      for M#X in S do
         try {Obj M} X=normal
         catch E then X=exception(E) end
      end
   end
   proc {$ M}
   X in
      {Send P M#X}
      case X of normal then skip
      [] exception(E) then raise E end end
   end
end
